home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / monster wave.2 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  20KB  |  581 lines
  1. 10 :REM *** R. PRACHUN (1983) ***
  2. 12 :REM *** P.O.BOX 1447      ***
  3. 14 :REM *** PORT PERRY, ONT.  ***
  4. 16 :REM *** L0B 1N0           ***
  5. 18 :
  6. 22 DATA 169 , 1 , 162 , 4 , 160
  7. 24 DATA 255 , 32 , 186 , 255 , 32
  8. 26 DATA 192 , 255 , 162 , 1 , 32
  9. 28 DATA 201 , 255 , 133 , 2 , 32
  10. 30 DATA 231 , 255 , 96 , 0 , 0
  11. 31 :
  12. 32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
  13. 33 :
  14. 34 YY=28:GOSUB10000:DQ=0
  15. 36 DL$(1)="                                     "
  16. 38 DL$(2)="                                     "
  17. 40 DL$(3)="                                     "
  18. 42 DL$(4)="                                     "
  19. 44 F$="":WS$=""
  20. 46 NA$="              [205]ONSTER [215]AVE "
  21. 48 MO$(0)="    ":MO$(1)=""
  22. 50 E$="                                                      "
  23. 52 X1$="":X2$=""
  24. 54 X3$="":X4$=""
  25. 56 X5$=""
  26. 58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
  27. 60 Y1$=""
  28. 62 Y2$=""
  29. 64 Y3$=""
  30. 66 Y4$=""
  31. 68 PRINTCHR$(142):PRINT""
  32. 70 GOSUB5220
  33. 72 PRINT"[147]"CHR$(14):GOSUB5000
  34. 74 GOTO122
  35. 76 DIM P1$(3,120):I=0
  36. 78 C1=0:C2=0:W=0:R=0:PR=0
  37. 80 :
  38. 82 FORK=1TO3:I=0:POKE53280,K+9:POKE53281,K+10
  39. 84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
  40. 86 N1(K)=N1(K)+1:GOTO84
  41. 88 NEXT K
  42. 90 :
  43. 92 FORK=1TO3:POKE53280,K+7:POKE53281,K+8
  44. 94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
  45. 96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
  46. 98 CV=CV+1:IFCV=2THENYY=158:CV=0
  47. 100 IFCV=1THENYY=28
  48. 102 GOSUB5350:NEXTJ:PRINT""
  49. 104 L(K,1)=INT(8*RND(1)+1)
  50. 106 FOR J=2TO5
  51. 108 L(K,J)=INT(8*RND(1)+1)
  52. 110 FORL=1TOJ-1
  53. 112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
  54. 114 NEXTL,J
  55. 116 NEXTK
  56. 118 RETURN
  57. 120 :
  58. 122 GOSUB194:F=1:GOSUB5670
  59. 124 GOSUB 248
  60. 126 IFVQ=2THENVQ=0:GOTO122
  61. 128 :
  62. 130 F=2
  63. 132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
  64. 134 GOSUB 356:GOSUB194
  65. 136 GOSUB5670
  66. 138 GOSUB248
  67. 140 IFVQ=2THENVQ=0:GOTO130
  68. 142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
  69. 144 GOSUB356:GOSUB194:GOSUB5670
  70. 146 GOSUB248
  71. 148 IFVQ=2THENVQ=0:GOTO142
  72. 150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
  73. 152 PRINT"       [211]TUDENT: ";SN$
  74. 154 ZZ=W+R:PR=INT((R/ZZ)*100)
  75. 156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
  76. 158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
  77. 160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
  78. 162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
  79. 164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
  80. 166 PRINT"       =============================="
  81. 168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
  82. 170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
  83. 172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
  84. 174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
  85. 176 GETZ$:IFZ$=""THEN176
  86. 178 IFZ$="Y"THEN182
  87. 180 GOSUB6410:GOTO 8000
  88. 182 FORK=1TO3
  89. 184 PRINT"[147]";NA$;"":FORI=1TON1(K)
  90. 186 PRINT MO$(NX);P1$(K,I)" ";
  91. 188 NX=NX+1:IFNX=2THENPRINT:NX=0
  92. 190 IFP1$(K,I)=" "THENGOSUB6200
  93. 192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
  94. 194 IFQH=1THENRETURN
  95. 196 PRINT"[147]";NA$
  96. 198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
  97. 200 PRINT"               1.[146] [198]AST"
  98. 202 PRINT"               2.[146] [205]EDIUM"
  99. 204 PRINT"               3.[146] [211]LOW"
  100. 206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
  101. 208 GETZ$:IFZ$=""THEN208
  102. 210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
  103. 212 IFCH=1THENS=20
  104. 214 IFCH=2THENS=50
  105. 216 IFCH=3THENS=75
  106. 218 GOSUB 220:GOSUB236:RETURN
  107. 220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
  108. 222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
  109. 224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
  110. 226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
  111. 228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
  112. 230 GETZ1$:IFZ1$=""THEN230
  113. 232 IFZ1$<>CHR$(13)THEN230
  114. 234 GOSUB5560:RETURN
  115. 236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
  116. 238 PRINT""
  117. 240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
  118. 242 FORDY=1TO500:NEXTDY
  119. 244 FOR J=1TO 39
  120. 246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
  121. 248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
  122. 250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
  123. 252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
  124. 254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
  125. 256 PRINT"   THAT FOLLOW (Y/N)?"
  126. 258 GETZ$:IFZ$=""THEN258
  127. 260 GOSUB5560
  128. 262 IFZ$="Y"ANDF=1THEN122
  129. 264 IFZ$="Y"ANDF=2THEN124
  130. 266 IFZ$="Y"ANDF=3THEN142
  131. 268 IFZ$<>"N"THEN248
  132. 270 PRINT"[147]"NA$
  133. 272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
  134. 274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
  135. 276 PRINT"  THE CORRECT ANSWER."
  136. 278 GOSUB 356:TM=0
  137. 280 FOR J=1TO5
  138. 282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
  139. 284 PRINT"[158] **************************************"
  140. 286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
  141. 288 PRINT"[158] **************************************"
  142. 290 GOSUB382
  143. 292 GETZ$:IFZ$=""THEN292
  144. 294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
  145. 296 GOSUB370
  146. 298 FORV=1TO4
  147. 300 IFV=QCTHEN304
  148. 302 PRINTDL$(V)
  149. 304 NEXTV
  150. 306 IFQC=CO(F,L(F,J))THEN348
  151. 308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
  152. 310 PRINTY2$;"               [212]RY AGAIN!"
  153. 312 GOSUB382
  154. 314 GETZ1$:IFZ1$=""THEN314
  155. 316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
  156. 318 IFQS=CO(F,L(F,J))THEN336
  157. 320 FORV=1TO4
  158. 322 IFV=CO(F,L(F,J))THEN326
  159. 324 PRINTDL$(V)
  160. 326 NEXTV
  161. 328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
  162. 330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
  163. 332 :
  164. 334 GOSUB 356:GOTO354
  165. 336 FORV=1TO4
  166. 338 IFV=QSTHEN342
  167. 340 PRINTDL$(V)
  168. 342 NEXTV:GOSUB370
  169. 344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
  170. 346 GOSUB364:R=R+1:GOSUB356:GOTO354
  171. 348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
  172. 350 GOSUB364
  173. 352 GOSUB356
  174. 354 NEXTJ:RETURN
  175. 356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
  176. 358 GETQ$:IFQ$=""THEN358
  177. 360 IFQ$<>CHR$(13)THEN358
  178. 362 GOSUB5560:RETURN
  179. 364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
  180. 366 POKE53280,6:POKE53281,12
  181. 368 RETURN
  182. 370 PRINTY1$"                                       "
  183. 372 PRINTY2$"                                       "
  184. 374 PRINTY3$"                                       "
  185. 376 PRINTY4$"                                       "
  186. 378 PRINTX5$"                                       "
  187. 380 RETURN
  188. 382 REM
  189. 384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
  190. 386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
  191. 388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
  192. 390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
  193. 392 PRINTX5$;"     ";D5$
  194. 394 RETURN
  195. 396 :
  196. 398 REM **** DATA FOR STORY ****
  197. 400 :
  198. 402 WS=INT(RND(1)*5+1)
  199. 404 ONWSGOSUB408,410,412,414,416
  200. 406 RETURN
  201. 408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
  202. 410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
  203. 412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
  204. 414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
  205. 416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
  206. 2000 DATA"  [201] CAN","STILL HEAR","MY MOTHER'S WORDS,","'[206]OW, REMEMBER,"
  207. 2005 DATA"IF YOUR EVER","IN TROUBLE,","JUST FIND","A POLICEMAN","AND HE WILL"
  208. 2010 DATA"HELP YOU.'","[199]REAT!","[194]UT, WHERE","DO YOU FIND","A POLICEMAN"
  209. 2015 DATA"IN THE MIDDLE","OF A HURRICANE?"," "
  210. 2020 DATA"  [201] SHOULD","HAVE TAKEN","MOM'S ADVICE","AND GONE","TO CAMP","FOR MY"
  211. 2025 DATA"SUMMER VACATION.","[201]NSTEAD,","[201] DECIDED","TO JOIN [202]EFF"
  212. 2030 DATA"AND HIS DAD","ON THEIR SLOOP,","THE [211]ALLY-[194],","FOR A CRUISE"
  213. 2035 DATA"TO [193]LASKA.","[201] THOUGHT","IT WOULD BE","MORE EXCITING,","BUT THIS"
  214. 2040 DATA"WAS RIDICULOUS!"," "
  215. 2045 DATA"  [197]VERYTHING","WAS SUPER","UNTIL","THIS MORNING.","[215]E COULD SEE"
  216. 2050 DATA"THE WEATHER BUILDING","TO THE WEST.","[202]EFF'S DAD","ASSURED US THAT"
  217. 2055 DATA"WE COULD REACH","A MAINLAND","HARBOUR","IN PLENTY","OF TIME."
  218. 2056 DATA"[193]ND WITH HIM"
  219. 2060 DATA"AT THE HELM,","WE WOULD HAVE.","[194]UT ONCE","HE GOT SICK,"
  220. 2065 DATA"WE KNEW","WE WERE","IN TROUBLE!"," "
  221. 2070 DATA"  [215]E'D MANAGED","TO HOIST","THE STORM SAILS","BEFORE","THE WORST"
  222. 2075 DATA"OF IT HIT.","[202]EFF'S DAD","WAS IN","A BAD WAY.","[200]E'D COMPLAINED"
  223. 2077 DATA"ABOUT STOMACH CRAMPS","AND NOW","HE WAS UNCONSCIOUS","IN ONE OF"
  224. 2080 DATA"THE STARBOARD BERTHS.","[202]EFF","STAYED BELOW"
  225. 2085 DATA"WITH HIM","AND TRIED","TO RAISE","SOMEONE","ON THE RADIO."
  226. 2090 DATA"[211]O FAR,","STATIC","WAS ALL","THAT HE","COULD HEAR."," "
  227. 2095 DATA"  [201] WAS TOPSIDE","AT THE HELM.","[212]HE WAVES","WERE INCREDIBLE!"
  228. 2100 DATA"[201]'D DONE","SOME SURFING","LAST SUMMER","AND THOUGHT","THOSE WAVES"
  229. 2105 DATA"WERE BIG.","[194]IG, MY FOOT!","[212]HOSE WAVES","WERE GOOSEBUMPS"
  230. 2110 DATA"COMPARED TO","THESE GIANTS."," ","***"
  231. 2115 DATA"  [215]E HAD ONLY","ONE CHANCE.","[201] KEPT","[211]ALLY-[194]'S COMPASS"
  232. 2120 DATA"ON DUE EAST.","[215]E COULDN'T","HAVE BEEN","MORE THAN","25 MILES OUT"
  233. 2122 DATA"FROM THE COAST,","ACCORDING TO","THE LAST POSITION"
  234. 2123 DATA"MARKED ON THE MAP."
  235. 2125 DATA"[201] FIGURED","SINCE [206]ORTH [193]MERICA","WAS SO BIG,","WE COULDN'T MISS."
  236. 2130 DATA"[198]INDING LAND","WOULD BE","ONE THING,","BUT GETTING ASHORE"
  237. 2133 DATA"IN ONE PIECE,","THAT WOULD BE","QUITE ANOTHER!"," "
  238. 2140 DATA"  [215]HEN [201]","FIRST NOTICED","THE FLASH,"
  239. 2142 DATA"OF LIGHT,","[201] WAS SURE","IT WAS LIGHTENING."
  240. 2145 DATA"[193]S THE MINUTES","PASSED HOWEVER,","[201] REALIZED"
  241. 2150 DATA"THAT THEY WERE","TOO REGULAR.","[201]T WAS THEN","THAT [201] BECAME"
  242. 2152 DATA"AWARE OF"
  243. 2155 DATA"A THUNDERING ROAR","LOUDER THAN","THE WIND.","[201]T WAS","THE SOUND"
  244. 2160 DATA"OF WAVES EXPLODING","AGAINST ROCKS!"," "
  245. 2162 DATA"  [207]N THE CREST","OF THE NEXT WAVE,"
  246. 2165 DATA"[201] COULD","CLEARLY SEE","THE TREE TOPPED","CLIFFS","BEING POUNDED BY"
  247. 2170 DATA"FOAMING SURF!","[201] WAS CLOSE","TO PANIC!","[211]UDDENLY,","THE LIGHT"
  248. 2175 DATA"FLASHED AGAIN.","[201]T WAS","A LIGHTHOUSE!"
  249. 2180 DATA"[201] COULD","JUST MAKE OUT","ITS SILHOUETTE","AGAINST","THE GREY SKY."
  250. 2182 DATA" "
  251. 2185 DATA"  [202]EFF POKED","HIS HEAD","OUT OF","THE CABIN","AND SCREAMED"
  252. 2190 DATA"SOMETHING ABOUT","THE RADIO,","BUT [201] COULDN'T"
  253. 2195 DATA"HEAR A WORD","OVER","THE DEAFENING ROAR.","[201]T TOOK","ALL MY ENERGY"
  254. 2200 DATA"TO HOLD","THE [211]ALLY-[194]","ON COURSE","TOWARD THAT"
  255. 2205 DATA"FLASHING PILLAR","OF HOPE!"," ","***"
  256. 2210 DATA"  [201] CAN'T","CLEARLY RECALL","THE NEXT SERIES","OF EVENTS."
  257. 2215 DATA"[201] DO KNOW,","THAT WE WERE","DIRECTLY OPPOSITE","THE LIGHTHOUSE"
  258. 2220 DATA"WHEN IT HAPPENED."," ","  [201] FELT","A RUMBLING","THROUGH THE DECK."
  259. 2225 DATA"[201] WAS CERTAIN","WE HAD STRUCK","A REEF!"
  260. 2230 DATA"[201] CAN STILL","CLEARLY PICTURE","[202]EFF'S EYES","OPENED WIDE"
  261. 2235 DATA"WITH TERROR","AS HE STARED","BEHIND ME."," ","  [201] WHEELED"
  262. 2240 DATA"AROUND,","BUT ALL","[201] SAW","WAS A WALL","OF FOAMING,"
  263. 2245 DATA"WHITE, WATER!","[212]HAT WAVE","MUST HAVE BEEN","THE WAVE","TO END"
  264. 2250 DATA"ALL WAVES."," "
  265. 2255 DATA"  [215]HEN [201] OPENED","MY EYES AGAIN,","A FACE","WITH CONCERNED","EYES"
  266. 2260 DATA"WAS WATCHING ME.","[212]HE FACE","CAME CLOSE","AND WHISPERED,"
  267. 2265 DATA"'[201]T'S ALRIGHT,","EVERYONE'S SAFE!'"," ","  [201] TRIED","DESPERATELY"
  268. 2270 DATA"TO ASK","WHAT HAPPENED,","BUT BEFORE","[201] COULD SPEAK,","THE VOICE"
  269. 2272 DATA"WENT ON."," "
  270. 2275 DATA"  '[212]HE LIGHTHOUSE KEEPER","HEARD ","Y'UR MAYDAY","JUST AS"
  271. 2280 DATA"HE SIGHTED","Y'UR SAILS.","[200]E FIGURED","YOU WAS A'GONNER"
  272. 2282 DATA"WHEN HE SPIED","THAT WAVE.'","[200]E LEANED","STILL CLOSER."
  273. 2285 DATA"'[217]OU MUST","LIVE RIGHT SON,","'CAUSE","THAT MONSTER WAVE"
  274. 2290 DATA"PICKED UP","Y'UR LITTLE BOAT","AND SHOT","YOU THROUGH","THE CHANNEL"
  275. 2295 DATA"LIKE A CANNONBALL!","[193]N' THAT","BOAT OF YOURS","WELL,"
  276. 2300 DATA"SHE AIN'T","EVEN SCRATCHED.'"," ","  [212]HE MAN","STARTED TO"
  277. 2302 DATA"BACK AWAY,"
  278. 2305 DATA"BUT [201] MANAGED","TO GRAB","HIS ARM.","'[193]ND WHO","ARE YOU?'"
  279. 2310 DATA"[201] CROAKED OUT."," "
  280. 2315 DATA"'[205]E?'","[200]E SMILED.","'[215]HY, [201]'M","THE POLICEMAN"
  281. 2317 DATA"'ROUND HERE!'"," ","***"
  282. 2320 DATA"[212]HE AUTHOR'S MOTHER ADVISED HIM","TO SPEND THE SUMMER;"
  283. 2325 DATA"AT HOME","SURFING","AT CAMP","ON A CRUISE",3
  284. 2330 DATA"[212]HE SAILBOAT WAS CALLED;"," ","THE [211]ILLY-[194]","THE [211]ALLY-[194]"
  285. 2335 DATA"THE [211]OL-[195]","NONE OF THESE",2
  286. 2340 DATA"[212]HE CRUISE WAS HEADING FOR;"," ","[200]AWAII","[195]ANADA","[194]ERMUDA","[193]LASKA"
  287. 2345 DATA4,"[212]HE SAILBOAT WAS ;"," ","A SLOOP","A SCHOONER","A CATAMARAN"
  288. 2350 DATA"A BRIGATINE",1
  289. 2355 DATA"[215]HAT DOES THE PHRASE 'THE WEATHER","WAS BUILDING' MEAN?"
  290. 2360 DATA"THE WIND WAS BEGINNING TO BLOW"
  291. 2365 DATA"HEAVY RAIN","A HURRICANE","A STORM STARTING",4
  292. 2370 DATA"WHAT IS THE MEANING OF THE","WORD, 'RIDICULOUS'?"
  293. 2375 DATA"STUPID","DANGEROUS","HAPPY","UNBELIEVABLE",4
  294. 2380 DATA"[215]HY WAS IT SO IMPORTANT FOR [202]IM'S","DAD TO BE AT THE HELM?"
  295. 2385 DATA"HE WAS THE STRONGEST","THE AUTHOR WAS A POOR SAILOR"
  296. 2390 DATA"HE KNEW THE WEATHER BEST","IT WAS HIS BOAT",2
  297. 2395 DATA"[215]HY WAS [202]EFF'S DAD IN A 'BAD","WAY'?","HE COULDN'T SAIL"
  298. 2400 DATA"HE FELL ASLEEP","HE WAS UNCONSCIOUS","HE HAD A FEVER",3
  299. 2405 DATA"[215]HY DID [202]EFF STAY BELOW?"," ","HE WAS SEASICK","HE WORKED THE RADIO"
  300. 2410 DATA"HE HELPED HIS FATHER","BOTH 2 & 3",4
  301. 2415 DATA"[215]HY WAS FINDING LAND ONLY PART","OF THE PROBLEM?"
  302. 2420 DATA"THE SEA WOULD BE ROUGH","THE SHORE WOULD BE HIDDEN"
  303. 2425 DATA"THEY WOULD BE TOO TIRED","THEY WERE LOST",1
  304. 2430 DATA"[215]HY COULD THE FLASH NOT BE","LIGHTENING?","IT WAS TOO BRIGHT"
  305. 2435 DATA"IT LASTED TOO LONG","IT WAS COLOURED","IT WAS TOO REGULAR",4
  306. 2440 DATA"[215]HAT DOES THE AUTHOR MEAN WHEN","HE SAYS THE FLASH WAS TOO REGULAR?"
  307. 2445 DATA"THE FLASH PULSED STEADILY","IT WAS TOO ORDINARY"
  308. 2450 DATA"THE FLASH WAS TOO BRIGHT","THE LIGHT WAS CONSTANT",1
  309. 2455 DATA"[215]HAT CAUSED THE 'THUNDERING","ROAR'?","THE WAVES"
  310. 2460 DATA"THE FLASHING LIGHT","THE BREAKING WAVES","THE THUNDER",3
  311. 2465 DATA"[215]HAT IS THE 'CREST' OF A WAVE?"," ","THE BREAKER","THE TOP"
  312. 2470 DATA"THE BOTTOM","THE MIDDLE",2
  313. 2475 DATA"[215]HAT DID THE AUTHOR SEE AT THE","CREST OF THE WAVE?"
  314. 2480 DATA"LARGE ROCKS","BREAKING WAVES","TREE TOPPED CLIFFS","ROCKY CLIFFS",3
  315. 2485 DATA"[215]HY WAS THE AUTHOR CLOSE TO PANIC","WHEN HE SAW SHORE?"
  316. 2490 DATA"HE WAS LOST","HE COULDN'T HEAR [202]EFF","THE ROAR WAS TOO LOUD"
  317. 2495 DATA"THERE WERE ROCKS ON SHORE",4
  318. 2500 DATA"[215]HAT DOES THE WORD 'SILHOUETTE'","MEAN?","A BRIGHT LIGHT"
  319. 2505 DATA"AN OUTLINE","A WALL","A SHADOW",2
  320. 2510 DATA"[215]HY COULDN'T THE AUTHOR HEAR WHAT","[202]EFF WAS SCREAMING?"
  321. 2515 DATA"[202]EFF WAS DOWN BELOW","THE SAILS FLAPPED TOO LOUDLY"
  322. 2520 DATA"THE AUTHOR'S EARS WERE PLUGGED","THE STORM WAS TOO LOUD",4
  323. 2525 DATA"[215]HY WOULD IT TAKE SO MUCH ENERGY","TO KEEP THE BOAT ON COURSE?"
  324. 2530 DATA"THE WIND WAS VERY STRONG","THE SEA WAS ROUGH","THE AUTHOR WAS SCARED"
  325. 2535 DATA"ALL OF THE ABOVE",4
  326. 2540 DATA"[215]HAT WAS THE 'PILLAR OF HOPE'?"," ","THE SHORE CLIFFS"
  327. 2545 DATA"THE LIGHTHOUSE","THE BOAT'S MAST","THE TALL WAVES",2
  328. 2550 DATA"[215]HY COULDN'T THE AUTHOR REMEMBER","THE LANDING TOO CLEARLY?"
  329. 2555 DATA"HE WAS TOO FRIGHTENED","HE WAS TOO BUSY","HE WAS TOO TIRED"
  330. 2560 DATA"HE WAS UNCONSCIOUS",4
  331. 2565 DATA"[215]HAT HAD CAUSED THE RUMBLING","THROUGH THE DECK OF THE BOAT?"
  332. 2570 DATA"A HUGE WAVE","A LARGE ROCK","A SHALLOW REEF","THE WIND IN THE SAILS"
  333. 2575 DATA1,"[215]HY WERE [202]EFF'S EYES OPENED","WIDE WITH TERROR?"
  334. 2580 DATA"HE COULDN'T YELL OVER THE NOISE","HE WAS WORRIED ABOUT HIS DAD"
  335. 2585 DATA"HE SAW THE WAVE COMING","THE RUMBLING SCARED HIM",3
  336. 2590 DATA"[215]HAT DOES THE PHRASE,'THE WAVE","TO END ALL WAVES' MEAN?"
  337. 2595 DATA"THE WAVE WAS THE LAST ONE","THE WAVE WAS VERY LARGE"
  338. 2600 DATA"THE WAVE WAS BREAKING","THE WAVE WAS A SOLID WALL",2
  339. 2605 DATA"[215]HAT DOES THE WORD 'DESPERATELY","MEAN?","IN A HURRY"
  340. 2610 DATA"WITH PAIN","WITH A GREAT DEAL OF EFFORT","OF LITTLE IMPORTANCE",3
  341. 2615 DATA"[215]HAT WAS THE FIRST THING THE","RESCUER TOLD THE AUTHOR?"
  342. 2620 DATA"EVERYONE WAS SAFE","THE WAVE WAS INCREDIBLE","THE BOAT WAS UNHARMED"
  343. 2625 DATA"THAT THE RESCUER WAS A POLICEMAN",1
  344. 2630 DATA"[215]HAT IS A 'MAYDAY'?"," ","A PUBLIC HOLIDAY","A CRY FOR HELP"
  345. 2635 DATA"A BOAT'S LOCATION","NONE OF THESE",2
  346. 2640 DATA"[215]HY DID THE POLICEMAN FEEL THAT","THE AUTHOR MUST LIVE RIGHT?"
  347. 2645 DATA"BECAUSE THE BOAT WAS UNSCRATCHED","THEY FOUND THE LIGHTHOUSE"
  348. 2650 DATA"THE AUTHOR SAILED WELL","THEY HAD SURVIVED THE WAVE",4
  349. 2655 DATA"[215]HAT DOES THE RESCUER MEAN WHEN","HE SAID THE AUTHOR 'LIVED RIGHT'?"
  350. 2660 DATA"THE AUTHOR WAS LUCKY","THE AUTHOR WAS STRONG","THE AUTHOR WAS HONEST"
  351. 2665 DATA"THE AUTHOR WAS VERY BRAVE",1
  352. 2670 DATA"[215]HAT DOES THE WORD 'CONCERNED'","MEAN?","UPSET","FRIGHTENED"
  353. 2675 DATA"WORRIED","FRIENDLY",3
  354. 4997 :
  355. 4998 REM **** END OF STORY DATA ****
  356. 4999 :
  357. 5000 POKE53280,5:POKE53281,12:GOSUB6870
  358. 5007 PRINT"[147]";NA$
  359. 5010 PRINT"       [200]ELLO, ";SN$;"."
  360. 5020 PRINT"        [208]LEASE READ THE STORY AND"
  361. 5030 PRINT"       ANSWER THE QUESTIONS THAT"
  362. 5040 PRINT"       FOLLOW."
  363. 5050 PRINT"     [217]OU MAY HAVE THE STORY PRINTED"
  364. 5060 PRINT"       OUT IN TWO DIFFERENT WAYS."
  365. 5070 PRINT"       1) [193]  PARAGRAPH [146] AT A TIME."
  366. 5080 PRINT"       2) [193]  PHRASE [146] AT A TIME."
  367. 5090 PRINT"       [201]N OPTION NUMBER TWO YOU "
  368. 5100 PRINT"     WILL BE ABLE TO CONTROL THE "
  369. 5110 PRINT"     SPEED OF THE PHRASES AS THEY"
  370. 5120 PRINT"     FLASH ON THE SCREEN."
  371. 5130 PRINT"  [215]HICH [207][208][212][201][207][206] WOULD YOU LIKE (1 OR 2)?"
  372. 5140 GETX$:IFX$=""THEN5140
  373. 5150 QH=VAL(X$):IFQH<1ORQH>2THEN5140
  374. 5160 RETURN
  375. 5170 GETZ$:IFZ$=""THEN5170
  376. 5180 IFZ$<>CHR$(13)THEN5170
  377. 5190 GOSUB5560
  378. 5210 RETURN
  379. 5220 PRINT"[147]":POKE53280,6:POKE53281,12
  380. 5230 GOSUB5340:GOTO5240
  381. 5240 AS=2006:AD=-39
  382. 5250 PRINTWS$;"           ONE MOMENT, PLEASE! "
  383. 5260 GOSUB76:RETURN
  384. 5270 FORD=1TO100:NEXTD:RETURN
  385. 5280 RETURN
  386. 5290 RETURN
  387. 5300 RETURN
  388. 5310 :
  389. 5320 REM *** GRAPHIC OPENING ***
  390. 5330 :
  391. 5340 POKE53281,12:POKE53280,7
  392. 5350 PRINT"           R. PRACHUN (1983) "
  393. 5352 :
  394. 5353 REM *** OPENING GRAPHIC START ***
  395. 5354 :
  396. 5360 PRINT"       [205][221][206]
  397. 5365 [153]"       LENSYS(null)LEN               STOPTOTO
  398. 5370 PRINT"       [206][144][166][205]          [144][164][164][164][164][206][164][164][205]
  399. 5375 [153]"        STOPSPC(          (null)  (null)   (null)(null)TAB(
  400. 5380 PRINT"        [166]        [164][206][205]   [221][158][205]
  401. 5385 [153]"      STOP(null)TAB((null)(null)(null)(null) TOTO (null)(null)     (null)SYS(null)(null)
  402. 5390 PRINT"                      [206][144][221][158] [206][205]
  403. 5395 [153]"       THE MONSTER   SYS(null)SYSTHENSTOP(null)SYS  (null)(null)
  404. 5400 PRINT"                    [206][205][158][167][144][221][158]   [206][205]
  405. 5405 [153]"       WAVE   MID$(null)MID$(null) SYS(null)(null) SYSTHENSTOP(null)SYSTOTOTOTOTO(null)
  406. 5410 PRINT"             [202][202][213][213][213][158][206][164][164][164][158][186][144][164][206][165][164][164] [158][163][213][202]
  407. 5415 [153]"             (null)MID$(null)MID$STOPTHEN(null)  FN(null)(null)STOPFNTAB( (null)FNMID$(null)MID$
  408. 5420 PRINT"            [213][202][213][202][202][213][144][205][163][163][163][163][163][163][163][163][206][213][202][213][202][213][202]
  409. 5425 [153]"           (null)MID$(null)MID$(null)MID$(null)(null)MID$(null)(null)(null)MID$(null)MID$(null)MID$MID$(null)MID$(null)MID$(null)MID$
  410. 5430 PRINT"              [213][202][213][202][213][202][213][202][213][202][213][202][213][202][213][202][213][202][213]
  411. 5435 [153]"
  412. 5440 PRINT"
  413. 5445 [142]
  414. 5455 [142]
  415. 5555 [143] *** END OF OPENING GRAPHIC ***
  416. 5560 SM[178]54272:[129]L[178]0[164]24:[151]SM[170]L,0:[130]
  417. 5570 [151]SM[170]1,45 :[151]SM[170]5,10
  418. 5580 [151]SM[170]15,30:[151]SM[170]24,6:[151]SM[170]4,21
  419. 5590 [129]TT[178]1[164]150:[130]
  420. 5600 [151]SM[170]4,20:[151]SM[170]24,0
  421. 5610 [142]
  422. 5640 :
  423. 5650 [143] *** PRINTOUT ROUTINE ***
  424. 5660 :
  425. 5670 [139]QH[178]1[167]6050
  426. 5680 [151]53280,0:[151]53281,11
  427. 5690 [129]I[178]1[164]N1(F)
  428. 5700 SH[178][194](203):[139]SH[178]4[167]S[178]S[171]5
  429. 5710 [139]SH[178]3[167]S[178]S[170]5
  430. 5720 [139]S[179]10[167]S[178]10
  431. 5730 [139]S[177]60[167]S[178]60
  432. 5740 SH[178]64
  433. 5750 [153]"              (null)(null)VALVALSTR$ WAIT =";S
  434. 5760 [153]E$:[153]F$;
  435. 5770 [153]"          ";(P1$(F,I))
  436. 5780 [129] J[178]1[164]S[172]10:[130]J
  437. 5790 [130] I:[142]
  438. 5800 :
  439. 6040 :
  440. 6050 [153]"LOAD";NA$;"":[129]I[178]1[164]N1(F)
  441. 6060 [153] MO$(NX);P1$(F,I)" ";
  442. 6070 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  443. 6080 [139]P1$(F,I)[178]" "[167][141]6200
  444. 6090 [130]I:NX[178]0:[142]
  445. 6100 [144]:[153]"LOAD";NA$;"":[129]I[178]1[164]N2
  446. 6110 [153] P1$(F,I);" ";
  447. 6120 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  448. 6130 [139]P1$(F,I)[178]" "[167][141]6200
  449. 6140 [130]I:NX[178]0:[142]
  450. 6150 [153]"LOAD";NA$;"":[129]I[178]1[164]N3
  451. 6160 [153] P1$(F,I);" ";
  452. 6170 NX[178]NX[170]1:[139]NX[178]2[167][153]:NX[178]0
  453. 6180 [139]P3$(F,I)[178]" "[167][141]6200
  454. 6190 [130]I:NX[178]0:[142]
  455. 6200 [153]"   (null)RESS THE WAIT (null)ETURN (null)EY  TO LENONTINUE "
  456. 6210 [161]Z$:[139]Z$[178]""[167]6210
  457. 6220 [139]Z$[179][177][199](13)[167]6210
  458. 6230 [153]"LOAD";NA$;"":NX[178]0:[142]
  459. 6235 :
  460. 6300 [143]
  461. 6310 [153]"LOAD      (null)OU APPEAR TO BE HAVING SOME "
  462. 6320 [153]"      TROUBLE WITH THESE QUESTIONS."
  463. 6330 [153]"       (null)RY READING THIS PART OF THE"
  464. 6340 [153]"      STORY AGAIN. RIGHT$ WILL GIVE YOU "
  465. 6350 [153]"      ANOTHER SET OF QUESTIONS WHEN"
  466. 6360 [153]"      YOU HAVE FINISHED."
  467. 6370 [153]"   (null)RESS THE WAIT (null)VAL(null)(null)(null)(null)  KEY TO CONTINUE "
  468. 6380 [161]X$:[139]X$[178]""[167]6380
  469. 6390 [139]X$[179][177][199](13)[167]6380
  470. 6400 TM[178]0:VQ[178]2:[142]
  471. 6410 [153]"LOAD     STR$O YOU WISH TO HAVE THE STORY"
  472. 6420 [153]"     PRINTED OUT TO A PRINTER (Y/N)?"
  473. 6430 [161]Z$:[139]Z$[178]""[167]6430
  474. 6440 [139]Z$[178]"Y"[167][141]10500:[137]6470
  475. 6450 [139]Z$[179][177]"N"[167]6430
  476. 6460 [142]
  477. 6470 [139]DQ[178]2[167]DQ[178]0:[141]9700:[137]6410
  478. 6475 [153]"LOAD    RIGHT$NSERT PAPER AND (null)URN ON (null)RINTER! ":[141]356
  479. 6480 [159]4,4
  480. 6490 [129]K[178]1[164]3
  481. 6500 [152]4,"";NA$
  482. 6510 [129] I[178]1[164] N1(K)
  483. 6520 [152]4,"";MO$(NX);P1$(K,I)" ";
  484. 6530 NX[178]NX[170]1:[139]NX[178]4[167][152]4:NX[178]0
  485. 6540 [139]P1$(K,I)[178]" "[167][152]4:NX[178]0
  486. 6550 [130]I:NX[178]0:[130]K:[160]4
  487. 6560 [142]
  488. 6570 [153]"   (null)OULD YOU LIKE THE (null)EPORT TO BE"
  489. 6580 [153]"   PRINTED ON A PRINTER (Y/N)?"
  490. 6590 [161]X$:[139]X$[178]""[167]6590
  491. 6600 [139]X$[178]"Y"[167]6630
  492. 6610 [139]X$[179][177]"N"[167]6590
  493. 6620 [142]
  494. 6630 [141]6850:[139]DQ[178]2[167][141]9700:[142]
  495. 6635 [153]"   (null)RINTING OUT (null)EPORT FOR WAIT ";SN$
  496. 6640 TQ[178]W[170]R
  497. 6650 [159]4,4
  498. 6660 [152]4,"";NA$
  499. 6670 [152]4
  500. 6680 [152]4,"   ==================================="
  501. 6690 [152]4,"        (null)TUDENT: ";SN$
  502. 6700 [152]4,"   ==================================="
  503. 6710 [152]4,"   (null)TORY (null)EPORT"
  504. 6720 [152]4,"   ------------"
  505. 6730 [152]4,"   (null)OTAL (null)UMBER OF (null)UESTIONS: ";TQ
  506. 6740 [152]4
  507. 6750 [152]4,"   ATNNSWERS LENORRECT (1ST TRY): ";C1
  508. 6760 [152]4
  509. 6770 [152]4,"   ATNNSWERS LENORRECT (2ND TRY): ";C2
  510. 6780 [152]4
  511. 6790 [152]4,"   (null)OTAL RIGHT$NCORRECT (null)UESTIONS: ";W
  512. 6800 [152]4
  513. 6810 [152]4,"   (null)OTAL (null)UESTIONS LENORRECT  : ";R
  514. 6820 [152]4,"   ----------------------------------"
  515. 6830 [152]4,"   (null)ERCENTAGE LENORRECT       : ";PR;" %"
  516. 6840 [160]4:[141]356:[142]
  517. 6850 [158](828):[139][194](2)[178]5[167]DQ[178]2:[142]
  518. 6858 [153]"LOAD  RIGHT$NSERT PAPER AND TURN ON THE PRINTER "
  519. 6860 [141]356:[153]"LOAD":[142]
  520. 6862 :
  521. 6870 [153][199](142):[153]"LOAD"
  522. 6880 VB$[178]"":IU[178]14:JQ[178]0
  523. 6900 [153]"        PLEASE TYPE IN YOUR FIRST "
  524. 6910 [153]"        NAME:>WAIT ":[153]
  525. 6920 ZZ$[178]"":[151]204,1:[153]VB$
  526. 6930 [161]ZA$:[139]ZA$[178]""[167]6930
  527. 6940 [139][198](ZA$)[178]13[167]SN$[178]ZZ$:[137]7000
  528. 6950 [139][198](ZA$)[178]20[167][137]6980
  529. 6955 [139][198](ZA$)[179]65[176][198](ZA$)[177]90[167]6930
  530. 6957 JQ[178]JQ[170]1:[139]JQ[178]16[167]ZZ$[178]"":[137]6870
  531. 6960 ZZ$[178]ZZ$[170]ZA$:IU[178]IU[170]1
  532. 6970 [153]"";[163]IU);ZA$;:[137]6930
  533. 6980 [139]IU[178]14[167][137]6930
  534. 6990 JQ[178]JQ[171]1:ZZ$[178][200](ZZ$,[195](ZZ$)[171]1):IU[178]IU[171]1:[137]6970
  535. 7000 [139]SN$[178]""[167]6870
  536. 7010 FL[178][198]([200](ZZ$,1)):FL[178]FL[170]128
  537. 7020 SN$[178][202](ZZ$,2,([195](ZZ$)[171]1))
  538. 7030 ZZ$[178][199](FL)[170]SN$:SN$[178]ZZ$
  539. 7040 [153][199](14):[142]
  540. 8000 [153]"LOAD     (null)OULD YOU OR ANYONE ELSE LIKE "
  541. 8010 [153]"     TO READ THIS STORY NOW (Y/N)?"
  542. 8020 [161]Z$:[139]Z$[178]""[167]8020
  543. 8025 [139]Z$[178]"Y"[167][138]
  544. 8030 [139]Z$[179][177]"N"[167]8020
  545. 8040 :
  546. 8041 [153]"      (null)OULD YOU LIKE ANOTHER STORY"
  547. 8042 [153]"             PERHAPS (Y/N)?"
  548. 8050 [161]X$:[139]X$[178]""[167]8050
  549. 8060 [139]X$[178]"Y"[167][141]9500:[137]9000
  550. 8070 [139]X$[179][177]"N"[167]8050
  551. 8100 [158]64738
  552. 8200 :[128]:
  553. 9000 [139]DQ[178]2[167]DQ[178]0:[151]831,4:[141]9700:[137]8040
  554. 9005 [153]"STOPLOAD        (null)OADING:  (null)AIN (null)ENU 64 "
  555. 9010 [151]53281,1:[151]53280,6
  556. 9020 [143] *** BOOT SAMPLE ***
  557. 9030 :
  558. 9040 :
  559. 9050 [143] *** FIRST PROGRAM BOOTED ***
  560. 9060 :
  561. 9070 [153]"LOAD"[199](34)"MAIN MENU 64";[199](34)",8"
  562. 9080 :
  563. 9090 :
  564. 9100 [153]"RUN"
  565. 9110 :
  566. 9120 [143] *** SET-UP KEYBOARD BUFFER ***
  567. 9130 :
  568. 9140 [153]"":[129]J[178]0[164]4:[151]631[170]J,13:[130]J:[151]198,5
  569. 9150 [128]
  570. 9500 [151]831,8:[141]10500:[139]DQ[178]2[167][142]
  571. 9505 [153]"LOAD    RIGHT$NSERT THE ATNDVENTURE (null)ERIES DISK"
  572. 9510 [153]"          INTO THE DISK DRIVE."
  573. 9520 [141]356:[142]
  574. 9700 [153]"LOAD     (null)PPS! (null)HE DEVICE IS NOT READY! "
  575. 9710 [141]356:[142]
  576. 10000 [129]K[178]0[164]24
  577. 10010 [135] ZZ:[151]828[170]K,ZZ
  578. 10020 [130] K:[142]
  579. 10500 [158](828):[139][194](2)[178]5[167]DQ[178]2
  580. 10510 [142]
  581.